home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
FGL402D.ZIP
/
EXBAS.ARJ
/
TEMP
/
10-13.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
463b
|
35 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DIM Image AS STRING*8
OldMode = FGgetmode
IF FGtestmode(3,1) THEN
FGsetmode 3
ELSEIF FGtestmode(7,1) THEN
FGsetmode 7
ELSE
PRINT "This program requires"
PRINT "an 80-column display."
STOP
END IF
FGcursor 0
FGsetattr 9, 7, 0
FGtext "text", 4
FGwaitkey
FGlocate 0, 0
FGgetimage Image, 8, 1
FGlocate 1, 1
FGdrwimage Image, 8, 1
FGwaitkey
FGsetmode OldMode
FGreset
END